CellLengthFloat Function

private function CellLengthFloat(gridIn, i, j) result(length)

Description compute average length (m) of a cell of a grid as the squareroot of area Input grid of type grid_real

Arguments

Type IntentOptional Attributes Name
type(grid_real), intent(in) :: gridIn
integer, intent(in) :: i

row and column of cell

integer, intent(in) :: j

row and column of cell

Return Value real(kind=float)


Source Code

FUNCTION CellLengthFloat &
!
(gridIn, i, j) &
!
RESULT(length)


!arguments with intent(in):
TYPE(grid_real), INTENT (IN)   :: gridIn  
INTEGER, INTENT (IN) :: i,j !!row and column of cell 

!Local variables
REAL (KIND = float) :: length
!------------------------------end of declarations-----------------------------

length = ( CellArea (gridin,i,j) ) ** 0.5

RETURN

END FUNCTION CellLengthFloat